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CHMGINSTR.BLI;1 


14-Sep-1984 12:2 EDT.SRC 
ZTITLE ‘ED 


DISCHMGINSTR = scan an insert command opr ing. 
MODULE EDTSCHAGINSTR ( Scan an ert command strin 
von * = 'v04-000' : e: CHMGINSTR.BLI 
BEGIN 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


ie ae fo icche a FURNISHED UNDER A LICENSE AND MAY BE USED AND og hd 
:® ONLY IN ACCORDA WITH THE TERMS OF SUCH LICENSE AND are THE 
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i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
PORPORAT Ibn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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ae 
FACILITY: EDT -- The DEC Standard Editor 


ABSTRACT: 


This module scans over the string of characters to be inserted 
by an insert command. 


' 
i 
i 
i 
i 
i 
i 
i 
ENVIRONMENT: Runs at any access mode - AST reentrant 

AUTHOR: Bob Kushlis, CREATION DATE: Unknown 

MODIFIED BY: 

i 1-001 = Original. DJS 04-Feb-1981. This module was created b 
"Regular! the routine EDTS$SCAN_INSSTR from module CHANGE .BLI. 
1-002 - Regularize headers. JBS 02-Mar-1981 

i 
i 


1-00 Add a return value to indicate end of journal file. 49s 02-0ct-1981 
1-004 - - lapreve the appearance of the Listing. JBS 13-Jun-198 


a a ed dd od od 8 ed dd od od od = = 3 = 
-- 
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EDTSCHMGINSTR EDTSCHMGINSTR = scan an insert command stri 15-4 -1984 :58: Ax-11 iss- 4.0-74 | E 
42000 Declarations tag 127808= 1382 93:35:98 YET SRE UsaciasyR oui. nae (25 | ve 


3 ? § } XSBTTL ‘Declarations’ 3 
; ; . 
FH 5 4 1 ! TABLE OF CONTENTS: 3 
3 8 5 : ! : 
5 28 037 : REQUIRE "EDTSRC:TRAROUNAM'; é 
° j ° 
; & 199 1 FORWARD ROUTINE ; 
: 2 138 ! EDTSSSCAN_INSSTR; ! Scan over the string of characters to be inserted ; 
: Lp pease Pa 
. oS 0804 1! | 3 
; © 503 1 3 
; 67 050% 1 REQUIRE "EDTSRC:EDTREQ'; ; 
: 68 0639 1 | : 
; 0640 1! 3 
: 0641 1 ! MACROS: F 
3 71 064 1! 5 
3 7 0645 1! NONE 3 
; 7 0644 1! § 
: 74 0645 1 ! EQUATED SYMBOLS: F 
$ 75 0646 1! 3 
3 76 0647 1! NONE ; 
; 77 0648 1! 3 
3 78 0649 1 ! OWN STORAGE: ; 
0650 1! ; 
; 80 0651 1! NONE 3 
; 81 0652 1! 3 
$ 82 065 1 ! EXTERNAL REFERENCES: $ 
: 83 0654 1! 3 
3 84 0655 1! In the routine | 3 
| 
| 
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EDTSCHMGINSTR EDTSCHMGINSTR = scan an insert command strin 15-Sep-1984 23:58: AX-11 Bliss-32 V4.0-74 Page 3. 

v04-000 EDTSSSCAN_INSSTR = scan an insert command . 14-Sep-19 4 3:33:43 LEbT sre CHAGINSTR OL 34 . (3) 

; $6 e3f ! ZSBTTL "EDTSSSCAN_INSSTR = scan an insert command’ ; 
; rs o28 } GLOBAL ROUTINE EDTSSSCAN_INSSTR ! Scan an insert command | : 
; Ww 0660 1 | : 
; Fi 661 1 I++ ; 
5 2 oe : FUNCTIONAL DESCRIPTION: ‘ 
; 94 664 1! This routine scans over the string of characters to be inserted by : 
: 32 Ror? : an insert command. | . 
ee 667 1! An insert ate tng is delimited by either a CTRL/Z character, or the printable : 
; oS bee : equivalent of “Z or “z. ‘ 
Py | e 
3 199 gery : The command pointer EDTSSA_CMD_BUF is left pointing one character beyond the command. ; 
3 108 0672 1 | FORMAL PARAMETERS: : 
; 1 0675 1! ‘ 
: 104 0674 1! NONE ‘ 
; 105 0675 1! | ; 
: 106 0676 1! IMPLICIT INPUTS: : 
; 107 0677 1 | | : 
; 108 0678 1! EDTSS$A_CMD_END ; 
; 109 0679 1} EDTSSA_CMD_BUF | : 
: 110 0680 1! . 
3 «95 0681 1 ! IMPLICIT OUTPUTS: : 
; 1g 0682 1! ; 
: 11 0683 1! EDT$S$A_CMD_BUF : 
3 (1146 0684 1! EDTS$G_SEA_LEN : 
3s 399 0685 1! ; 
3; «6116 0686 1 ! ROUTINE VALUE: : 
; 17 0687 1! ; 
; 418 0688 1! 1 = ok, 0 = end of journal file : 
; 6119 0689 1! 3 
; 150 0690 1 ! SIDE EFFECTS: é 
: 121 0691 1! 3 
; \¢¢ 0692 1! NONE : 
; ie 0695 1! 3 
; \$¢ 0694 1 !-- 3 
3 te9 0695 1 F 
: 126 0696 BEGIN : 
: 127 0697 3 
; 128 0698 EXTERNAL ROUTINE } f : 
: 4 8 44 EDTSSINS_MOD; ! Process no-keypad insertion : 
3 131 0701 EXTERNAL : 
3 136 070 EDTSSA_CMD_END, ! End of command pointer : 
: 3 070 EDTSSA_CMD_BUF, ' Command string pointer | : 
3 Tt Bree EDT$$G_SEA_LEN; ! Length of search string. 3 
3 13% 70 LOCAL : 
3: 137 70 SUCCEED; | 3 
: «4138 708 3 
; 139 709 SUCCEED = 1; : 
: 140 710 EDTS$$G_SEA_LEN = 0; 3 
3: (161 711 : 
3; 6142 0712 WHILE 1 DO : 


—— eee ee 


EDTSCHMGINSTR EDTSCH 
v04-000 EDTS$S 
; 071 

1 


>a 


ae 
2 
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SSTR = scan an insert command ° 127808-1 3c 73:38:98 YEDT SREICHAGINSY ‘ cre aver 


143 BEGIN | 


DTSCHM 

DT$$SC 
; 713 ; ; 
3; 61446 Bote . 
: 145 715 4 IF CHSPTR_EQL (.EDTSSA_CMD_BUF, .EDTS$SA_CMD_END) : 
3 re pris 3 THEN : 
; (614 071 4 BEGIN : 
: 148 718 4 SUCCEED = EDTSSINS_MOD (); ; 
; 149 719 & EXITLOOP; . 
: yay 39 3 ie | 
; 126 07 § 4 IF (CHSRCHAR (.EDTSSA_CMD_BUF) EQL ASC_K_CTRL_2Z) : 
s 07 3 THEN ; 
3 138 $7 4 4 peGit : 
; 155 725 4 EDTS$$A_CMD_BUF = CHSPLUS (.EDTSS$A_CMD_BUF, 1); : 
: 156 0726 4 EXITLOOP; | : 
3 157 07 ; 3 ; 
>. 7a 0728 . 
; 159 4444 4 IF (C(CHSRCHAR (.EDTSSA_CMD BUF) EQL %C°*") AND ! : 
; 160 0730 5 ((CHSRCHAR (CHSPTR (.EBTSSA_CMD_BUF, 1)) EQL %C'Z") OR } ; 
; 161 0731 4 (CHSRCHAR (CHSPTR ( EDTSSA_CMD_BuF , 1)) EQL 4C'2'))) : 
3 16¢ Or 3¢ 3 N 
3; % 0733 4 BEGIN 
: 164 0734 4 EDT$$SA_CMD_BUF = CHSPLUS (.EDTSSA_CMD_BUF, 2); 
3: 6165 O73? 4 EXITLOOP; 
: 166 0736 END; 
: 167 0737 
: 168 0738 EDTS$SA_CMD_BUF = CHSPLUS (.EDTSSA_CMD_BUF, 1); 
: 169 0739 3 EDTS$$G_SEA_LEN = .EDTS$$G_SEA_LEN ? 1; 
; 170 0740 2 END; 
> Jr. 0741 2 
5 \7¢ ore 2 RETURN (.SUCCEED); 
: 7 07435 «1 END; ! of routine EDTSSSCAN_INSSTR 


-TITLE EDTSCHMGINSTR EDTSCHMGINSTR = scan an insert co 
; mmand string 
-IDENT \V04-000\ 


.EXTRN EDTSSINS_MOD, EDTSSA_CMD_END 
“EXTRN EDTSSA_CAD_BUF, EDTS$SG_SEA_LEN 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


000C 00000 .ENTRY EDTSS$SCAN_INSSTR, Save R2,R3 ; 0658 
53 900000006 99 SE 90002 MOVAB EDT$$G_SEA_LEN, R : 
2 000000006 9E 0000 MOVAB EDTSSA~CMD“BUF, R : | 
50 01 00 0001 MOVL #1, SUCCEE > 0709 | 
63 D4 0001 CLRL EDT$$G_SEA_LEN : 0710. 
000000006 00 62 Dt 9013 1$ cHPL EDTSSA_CHD_BUF EDTSS$A_CMD_END : 0715 | 
000000006 00 00 FB O01 CALLS #0, EDTS$INS_MOD : o718 | 
51 62 00 $0 6 28 MOVL  EDTSSA cD BUF. R1 : 0722 | 
1A 61 91 90 9 CMPB (R1), #26 : | 
03 12 0002C BNEQ 3$ : 
6 6 00 F INCL EDTSS$A_CMD_BUF ; 7 5 | 
4 000 RET : 0724. 
51 62 DO 00031 3$ MOVL EDTSSA_CMD_BUF, R1 ; 07 9 | 
| 


SE BF § 4 
5A sOBF 01 4 
7A sOBF 01 =I 41 
8 1 ‘8 
62 2 f oe 48 
4 4B 
$¢ 06 4C 5$ 
63 06 0004E 
C3 11 00050 
; Routine Size: 82 bytes, Routine Base: _EDTSCODE + 0000 


; 174 0744 1 
; 175 0745 1 !<BLF/PAGE> 
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R1), #94 

1(R1), #90 

(R1), #122 
EDTS$S$A_CMD_BUF 


DTS$A_CMD_BUF 
‘ee 
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¥04~000 EDTSSSCAN_INSSTR = scan an insert command . 127308- 1384 $3:38:98 EDT. SRC CHAGINSTR “OL 124 
: 177 746 1 END ! of module EDTSCHMGINSTR 
: 478 $Fe$ or 
: 179 0748 O ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
: _EDTSCODE 82 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
ta Se al UR Ee oe Symbols ocose<e> Pages Processing 
; File Total Loaded Percent Mapped Time 
: ~$355$DUA28: LEDT. SRCJEDT 32:1 377 2 0 40 00:00.2 
; _$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 


COMMAND QUALIFIERS 


SOLA ee INET IAL -OPTIALZE) /HOTRACERACE/L 1SeL [S81 CHNGINSTR/0BJ908/8s CHNGINSTR MSRC$: CHMGINSTR.BLI/UPDATE=(ENHS:C 


Size: 82 code + 0 data bytes 
Run Time: 00:10.9 


Lexemes/CPU-Min: 11878 
pee Used: 70 pages 
Compilation Complete 
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